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Fects 


The Disappearing Knd-Of-File 


By Denis 8. Brown 


Users of dBASE II, specifically 
releases 2,41 and 2.43* for CP/M- 
80, may appreciate knowing about 
a bugs sine the handling of the 
EOF flag during console input. 


This effect has been confirmed by 
both Imagineering (from whom we 
purchased dBASE) and Arcom 
Pacific (main Australian 
distributors), at least for the 
8-bit versions. The support 
provided by both companies Nas 
been appreciated though, at the 
time of writing, no patch exists 
(to dBASE) which allievates the 
effect. Earlier versions, and/or 
16-bit versions may not harbour 
the same demon. 


When the currently-selected 
database reaches its end-of-file, 
a flag (EOF) is set (.T,), a fact 
which the programmer may employ 
to terminate a loop, and so on. 
It is possible, however, to 
corrupt the state of this flag by 
performing a READ operation 
involving the input of some 
actual characters (as opposed to 
simply a RETURN keystroke). 
Consider the following: 


USE myfile 

GO BOTTOM 

? EOF 

* This will show .F., 
* which is correct. 
SKIP 

? EOF 

* This will show .T., 
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which is also correct. 


inputting.. 

it will show .T, (no change) 
Using the NOUPDATE clause has no 
effect on this problem 

STORE * *" TO reply 

@ 1,0 GET reply 

READ 
? EOF 
meet 


+ &*& © 4+ F&F 


‘reply’ consisted of RETURN, 


Entry of any other character will 
reset (to .F.} the EOF flag, 
which could have undesirable or 
unusual consequences depending on 
the code. Note that the flag 
condition is reset, never set, 
depending on the input data 
Multiple-character input results 
in no-change only when a RETURN 
(alone) is typed ~ that is, the 
default value of the GET variable 
is accepted. 


* A main screen title (different 
* this listing function) must be 


* 


USE stockdat 


Now do some apparently “harmless” 


How does this bug impact the 
average programmer? It became 
apparént to me during the 
development of a module to list, 
in abbreviated form, some 
pertinent facts from a stock- 
Control program, from which the 
skeleton in Listing 1 was taken. 
I have conquered the problem by 
copying the EOF flag toa 
temporary variable and using this 
for loop control 


This code works well, as long as 
the RETURN key is pressed when 
the end-of-file is encountered, 
but is a "“time-bomb" waiting for 
someone (e.g. yours truly) to 
press some other key thus 
resetting the EOF flag, permitting 
the loop to repeatedly re-display 
the last record until only a 
RETURN is pressed. Mr Miller 
(Arcom) advises that the ACCEPT 
statement is free of such 
problems, however I find the 
GET/READ system better-suited to 
my needs 


My solution, ANDing the EOF flag 
to a temporary variable after 
each SKIP and using that to 
control looping, has the 


for each module which may call 
preserved by this code 


* code here to display a (local) heading 


* (e.g. Stock Number 
DO WHILE .NOT, EOF 


Description 


Cost Price) 


Code here to display data fields for up to 10 records 
This is another loop containing SKIP to move through 

the file, terminating on EOF or 10-items—displayed 
Present a message that reflects the state of the database 


IF EOF 


@ 20,0 SAY “Press any key to return to previous Menu” 


ELSE 


@ 20,0 SAY "Press any key to view additional item(s)" 


ENDIF 

Stone” ™ TO reply 
@ 20,50 GET reply 
READ NOUPDATE 


* Code here to clear the “active” screen lines 


(NOT the 


* locals heading or the main screen title) 


ENDDO while not at end-of-file 


* Clear the local heading line (the main screen title remains 
* on display from the calling-module}). Return to caller 


Listing 1. The End-of—file Bug. 





advantage that the loops can.be 
terminated by any condition which 
sets the variable to true. Other 
solutions, inlcuding re-design of 
the code, are of course possible. 


The "bug" is not influenced by 
the type of GET variabie (i.e. 
Character, Numeric or Logical), 
or its nature (memory variable or 
database field). 


dip 
Useful Conventions 


By Les Bell 
Naming Memory Variables 


Avoid using the same names as 
fields in your files, even if 
those files aren’t in use at the 
Time. 


Try to group variables by name 

If a set of variables serve the 
same function, they are likely to 
be RELEASEd or SAVEd at the same 
time, so give them a common 
prefix. 


If possible, try to indicate the 
type of the variable in its name 
That way you won’t get type 
mismatches because you've 
forgotten whether it’s character 
Or numericuseeg. STORE 0 TO num, 
STORE STR(num,1) TO numstr 


Don’t usé variables with similar, 
or the same, names as dBase 
keywords 


Management Technology Education Pty.ird 


MTE is Australia’s leading supplier of quality PC 
training to business and government. 


MTE courses feature top-line instructors, “hands-on” 
format, professional design, premium quality training 
Melbourne and Sydney City Centre 


facilities, 
locations. 


When you have the training need, we have the course. 


e PC's as a Business Too! 


WordStar? 
e LOTUS 1-2-3 & SYMPHONY 


For full details of the above and other MTE PC Courses 
phone for our FREE comprehensive booklet or 
complete and send the coupon opposite. 


Multiplan Introduction & Advanced 
dBASE Il & Ill Intro., Intermediate & Advanced 
WordStar, Introduction & Getting More From 





c Veloper 


Customising the dbase 
I] Help Facility 


By Matt Whelan 


The dBase II HELP command is 
overlooked by many people, 
particularly those who started 
out with a version earlier than 
2,4 (incidentally, if you are 
still using an earlier version, 
you deserve it! ). 


You Can simply type "HELP" to get 
an overview of the help system 
and a list of commands (with 
brief explanations), or HELP with 
&@ command name or keyword to get 
information on the specific 
command. 


The help system isn’t 
particularily good, but it does 
save the occasional search 
through the manual — and because 
of its primitive design it can be 
customised to suit your 
programmed system. 


For example, the dBase help files 
used during MTE courses have been 
extended. They include more 
detailed explanations of each 
command, and how to use them, to 
enable the students to get 
instant answers on problems they 
Mightmcome up against on the 
course 


(Those help files prove the value 
of keeping your help extensions 


SYDNE 
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short, though = the extended file 
is around 80 Kbytes, and dBase 
can take ages to search through 
it if you ask for help on 
something that isn’t covered. ) 


The extensions to the Help file 
are interesting because they show 
how you can modify the dBase HELP 
facility to suit particular 
applications 


The help system’s message file is 
a standard ASCII text file, so it 
is easily modified with 4 word 
processor, You can modifiy the 
Ashton-Tate supplied file, or you 
Can use the guidelines to create 
your own miniature help files to 
Suit @ particular application 


The format of the file is simple 

a keyword preceded by an 
asterisk at the start of a line 
signals the start of the 
information on that keyword The 
word EXIT preceded by 4an 
asterisk, again at the start of a 
line; signals (hesgenemeresrne help 
block, See Listing 2 for an 
example. 


Thus users of your programs could 
get help on particular modules 
when they are working from the 
dBase command line, and you can 
also provide help selections Gn 
your menus which simply issue the 
required HELP command and let the 
built-in help system do the work, 


Having all your help information 
in the one text file is far 
simpler when you want to change 
it, and it also cuts down the 
weight of perhaps-rarely-used 
help code in your working 
modules. 
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*HELP 

This is part of the help file DBASEMSG.TXT which explains the 
dBase help system. If you type HELP HELP at the dot prompt {or 
from within a program) dBase will do a sequential search of this 
standard ASCII text file looking for a line starting with *HELP 
{i @., an asterisk followed by the keyword you have used in your 
help command). It will display all the following text = this text 
- {and, if there is more than a screenful, it will page it for 
you, Waiting until you hit a key to continue after each screen) 
until it comés to a line starting with *EXiT Sots is the gee 
the help information on HELP. 

*EXIT 


*MOREHELP 

*MULTIPLE 

* GEEWHIZZWOW 

Another useful feature of the help system is the fact you can 
have the same block of help text apply to more than one keyword. 
SO, you would see this piece of text if you typed HELP MOREHELP, 
Or HELP MULTIPLE, or even HELP GEEWHIZZ2WOW. Just think how much 
information you can store in this file withoumenaving it Clutter 
your programs, and without having to write the code to page your 
info to the screen ~ dBase does it all for you. $0 your program 
only needs to do something like this 


DO CASE 
CASE menuchoice=‘1' 
DO diedger 
CASE menuchoice=‘2' 
DO gliedger 
CASE !(menuchoice)-—"H”" 
HELP accountsmeénu 
OTHERWISE 
HELP messagel 
ENDCASE 
* EXIT 


*HELPINFO 
A few points to think about if you plan to modify the HELP 
system, 


1) Edit the DBASEMSG TXT file with a non-document-—mode word 
processor, or you‘ll have problems 


2) Like its own keywords, dBase Will recognise the first four or 
more characters of a keyword in the HELP file $o you could type 
HELP GEEW or HELP GEEWHIZ2Z to get the GEEWHIZZWOW info in the 
example above 

*EXIT 


Listing 2 — Sample from a modified DBASEMSG.TXIT 








Name: 


Pasition: 












/MELBOURNE 


6th Fir, 99 Queen Street 
Tel: (03) 67 7117. 


Company: 
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| 
| Address: 
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brieling 
Feedback and 
Food for Thought 


Dear dLetter 
HELP! HELP! HELP! 


I have been using dBase II for 
about tWo years and 6 months ago 
moved over to dBase III, 
Converting my II files to III was 
not a problem and I have 
developed some reasonably complex 
database systems since, but [I 
have a problem printing from 
dBase III and so far have found 
no solution. 


As can be seen from the enclosed 
listings, a data input file is 
opened, the screen is formatted, 
and then the data is printed to a 
pre-printed order form. My 
problem is that both my printers 
double linespace when printing 
from dBase III. The only way I 
can avoid this is to print from 
dBase II then convert the 
database to III. This is a real 
pain and an obvious hassle as 
dBase II only allows a limited 
number of fields. 


I‘m operating dBase III version 
1.1 on @ Tandy 1000, All other 
programs, such as Wordstar, 
Lotus, Open Access, and so on 
print okay, Dut not dBase. My 
printers are a Tandy Daisy Wheel 
DWII and a NEC CPE and they are 
unable to help. 


Management Technology Education ptyitd 


When you need dBASE training call MITE, Australia’s 
largest supplier of quality PC training. 


dBASE courses include: 

e dBASE || and dBASE III Introduction 
e dBASE II and dBASE Ill Intermediate 
e dBASE Advanced with Les Bell 


SEND NOW FOR YOUR FREE COMPREHENSIVE 
COURSE BOOKLET 


[_] Please send me FREE the MTE comprehensive PC course booklet. 


Postcode: . .,. Phone: 


Printing my réports in doubie- 
line spacing does not bother me, 
but pre-printed forms require 
Single line spacing which seems 
to be impossible with my set-up. 
Any help you can provide will be 
rewarded by my undying allegiance 
to dLetter and eternal 
subscription to "Your Computer", 


Mark Chimes 
TOOWOOMBA, QLD 


Your print program uses direct 
addressing (@ ... SAY), and 
output from these statements is 
correctly sent to the printer by 
the line at the top of the 
program: SET DEVICE TO PRINT. 


Therefore, you don’t need the 
Line SET PRINT ON, which you have 
also included, and we suspected 
this was your problem. However, 
when we tested similar code on 
our copy of dBase III it worked 
fine, so we’re stumped. 


This is a good example of why 
readers with a problem should 
send in a disk with their 
programs and sample data for us 
to test — there Was no Way ve 
were going to key in the pages of 
code from your Listings! Maybe 
you’d Like to send us a disk, and 
we'll try running it on 1.0, 1.1, 
and dBase [III Plus to see if it 
behaves for us. 


Meanwhile, have any other readers 


experienced (and, hopefully, 
solved) this problem? 


dip 
Useful Conventions 


By Les Bell 





Program Size/Structure 


Get in the habit of putting a 
header on each file, identifying 
it (and identifying its purpose} 


Create variables that need 
initialising for the module at 
the start of the module where 
possible, and RELEASE all the 
unneccessary ones before 
returning to the calling program 


Keep programs short, especially 
in the development stages, to 
make tracking problems easier 
You Can combine them later if 
necessary, but beware of making 
them so big dBase spends alli its 
time reading lines irrelevant to 
Ene Current activity 


Around ef Traps 


User Group News 
Dear Dele 


(Sydney dBase User’s Group Hotline) 
By Geoff May 


An interesting question this 
month. Ordering data is our 
topic 


The problem was to generate a 
library-type catalog from a list 
of records and performers. A 
library catalog has alli books 
Listed under both author and 
title. The database we are 
looking at, call it ALBUMS, 
the following structure:= 


has 


TITLE C 30 (name of the 
record) 

(the performer ) 

(catalog number 


or reference} 


PERFORMER C 30 
CATALOGNUM C 8 


ec. 


We want a database where BOTH the 
TITLE and PERFORMER appear in the 
first field of our CATALOG 
database. It will have the 
following structure:- 


REFERENCE C 30 (the performer 


OR 

title of the record) 

DETAILS Cc 30 (the tiltlie OR 
performer of the item 

in the first field) 
(the catalog 
number 

or reference) 


CATALOGNUM C 8 


By now you will have realised 
that we will double the size of 
Our database by duplicating every 
record but switching the first 
and second fields around. 


We produce our CATALOG file from 
the original ALBUMS file through 
the following set of commands: 


use ALBUMS 

copy structure to CATALOG 
use CATALOG 

modify structure 

change the names of the first 
two fields to REFERENCE and 
DETAILS, make sure that both 
fields are the length of the 
largest of the two 

Now we create a temporary 
database, called PERFORMR from 


our original ALBUMS database:= 

use ALBUMS 

copy structure to PERFORMR 

use PERFORMR 

modify structure 
reverse the order of the first 
two fields, 1.e. first fieid 

should become PERFORMER, and 

the second TITLE make sure that 

both fields are the length of 

the largest of the two 

We now have three databases; 

ALBUMS, PERFORMR and CATALOG. 

The last two are empty. 

Remember which fields each file 

has. 

The last part of the process is 

to transfer the original data 

from ALBUMS to CATALOG and then 

add it a second time With the 

first two fields reversed. 

we use the following 

procedure: 

us@ PERFORMR 

append from ALBUMS 
this gives us the same data as 
ALBUMS as fields are appended 
to those of the same name 

copy to PERFTEXT delimited 
create a comma and quotes 
delimited text file 

use ALBUMS 

Copy to ALBMTEXT delimited 
Create a comma and quotes 
delimited text file 

use CATALOG 

append from ALBMTEXT delimited 
copy the data from the text 
file, fields are filled in 
order so each field in ALBUMS 
ends up in the same relative 
position in CATALOG, but in 
fields of a different name 

append from PERFTEXT delimited 
copy the data from the text 
file, fields are filled in 
Order so each fieid in ALBUMS 
ends up in the same relative 
position in CATALOG, but in 
fields of a different name 

index on REFERENCE to CATALOG 
create an index and finish tape 
is in sight 

set index to CATALOG 
: and that’s that, The file 
CATALOG contains all the data 
from ALBUMS indexed on either 
PERFORMER or TITLE. 


ey 


bugging 


On Error — a real 
dBase Il plus! 


By Jeffery Bersin and Nicole Hannes 


Although the dBase III Plus 
applications you’ve set up around 
your office (or sold to clients) 
are intended to run flawlessly, 
what happens when they don’t? As 
the programmer you may receive 
calls from colleagues or clients 
telling you that ‘something went 
wrong’ with one of the 
applications you developed for 
them, and imploring you for an 
immediate fix. 


Unfortunately, users often can't 
remember what they were doing 
when the problem occurred and can 
only give sketchy details 
describing the problem’s 

symptoms. Thus you are faced with 
the prospect of spending 
considerable time trying to 
reconstruct the problem. 


If you are using dBASE III Plus, 
the process of recovering from 
the state of error and debugging 
are much smoother 


You can now trap eérrors with the 
ON ERROR command branching to the 
execution of any dBASE III 
command including DO <fil@name> 
This allows you to survey the 
environment that your program is 
operating in and make decisions 
about the appropriate course of 
action. 


The following program, Err hist, 
demonstrates how, when an 
unexpected dBASE III error 
eccurs, your application’s 
operating environment can be 
saved to a text file that you can 
peruse at some later time This 
is an important tool in 
supporting and debugging your 
applications in the field. 


The program uses ON ERROR to take 
a "snapshot" of your program when 
an error occurs. Anytime a dBASE 
TiI error is encountered, an 
alternate file containing the 


Program status will be created 


The file will be stamped with the 
system time and will use LIST 
HISTORY (another new command) to 
show the last 20 commands 
executed before the error 





10/01/85 
10:42; 43 


xT SS rT ea ELK SSIES SSE SSeS SST SASS SST HT EES SS SS STS SS SS 


History listing 


Sa SSL VSS SRE SSS STRESS ATL SASS SPERM SSS SELLS Ee. Se 


ON ERROR DO ERR HIST.TXT 
USE ORDER INDEX NUMBER 
FIND 55555 

SKIP 


REMIT K KK SS STL Ss SLL TT SSS tS LESS SS SS 


Status Listing 


ress 2s Ls Sse SSE TH EK RASS SS ae 


Currently Selected Database: 

Select area; 1, Database in Use: 
Index file; B:NUMBER,ndx Key; 
Memo file: B:ORDER.dbt 


B: ORDER. dbf 
number 


Alternate file; B:E3010424-ERR 
File search path: 

Default disk drive: 8B; 

Print destination: LPT Li 
Margin = 0 


| 


ESCAPE ~ ON 
EXACT — OFF 
HEADING ON 
HELP = 1N 
HISTORY ORE 
INTENSITY ON 


ALTERNATE ON DEBUG “7 
BELL ~ ON DELETED 
CARRY - OFF DELIMITERS 
CENTURY = OFF DEVICE 
CONFIRM - OFF DOHISTORY 
CONSOLE = OFF ECHO = 


OFF 
OFF 
OFF 
SCRN 
OFF 
OFF 


| 


| 


Programmable function keys: 
F2 -—- assist: 

F3 - list; 

Paw = air; 

F5§ - display structure; 

F6 - display status; 

F7 -— display memory; 

F8 - display; 

F9 -~- append; 

F10 edit; 


[aac 2a Se... PS SL SSSR SSeS SSS SSS SS SS SSS 


Memory Listing 


eras EZR e ene TL Lae eR RE RRS SS SSeS Pe eee eee 


BOF()= .F. 


256 variables available, 6000 bytes available 


— —_ =e 


SSTseEetea eta Sst eat ss occ SSS VSS ST SLT LIL eS SS SS SSS = a 


Listing 3. Sample ERR AIST output. 


occurred. It LISTs the contents 
of ali work areas including all 
files that are open within each 
as well as all currently defined 
memory variables and the contents 
at the time of error. 


history, but leave 
HISTORY before the 


For example, 
The first thing the program does 
is set up a working environment month, 2:35, 
seconds between 10 
SET DOHISTORY OFF 
SET CONSOLE OFF 


ON ERROR SET CONSOLE ON 


Sample Listing 


Alias: 


ORDER 


what was in 
error 


The name of the error file is 
constructed from an "E" plus the 
day of the month plus the time. 

E0902351-ERR 
represents the ninth day of the 
and some number of 


and 19 


Listing 3 is sample output 


DOHISTORY is set OFF So that we The 


don’t record this program as 


from Err_hist. 


first two 


lines represent the date and time 


* Program. Err hist.PRG 
* Author. Jeffrey Bersin 
* Date... October 1, 1985 


SET DOHISTORY OFF 


7 “An error has occuréd: Please stand by 4 

SET CONSOLE OFF 

* ==——Turn off ON ERROR, in Cas@ an error occurs in this program 
ON ERROR 

* =e=-Setup alternate file @name 


err file » "E" + REPLICATE{ "0" ,2-LEN{(LTRIM(STR{DAY(DATE{)},2}))). 


+ LTRIM(STR{DAY(DATE()},2)}) + SUBSTR{TIME(},1,2), 
+ SUBSTR(TIME(),4,2) + SUBSTR{TIME(),7,1), 
+ “SERR™ 


* m-—-Set and turn On Errore, ee 
SET ALTERNATE TO &err file 

SET ALTERNATE ON 

* ~-~-Display program status. 


DATE{ } 
TIME( ) 


REPLICATE( "=", $0 ) 

"History 1ist¢ang" 

? REPLICATE({ "=", 50 ) 

LIST HISTORY 

2? REPLICATE{ "=", 50 ) 

¢ "Status Listing" 

3 REPLICATE( “== Soe 

LIST STATUS 

? REPLICATE( °=]3s0)) 

© “Memory Liseing- 

? REPLICATE( "=", 50 } 

ef “BOF{)=" 

?? BOF() 

> "FOF()= " 

2? EOF() 

? "RECNO{ })= * 

?? RECNO( ) 

SET SAFETY OFF 

* —~-Saves the name of the Err File 
SAVE TO Temp 

* --~Releases only memory variables ceated by this routine. 
RELEASE ALL 

LIST MEMORY 

? REPLICATE( *=",50) 

* —--Brings back the err file memory variable 
RESTORE FROM Temp is 

SET SAFETY ON 

* ——Reset alternate file 

SET ALTERNATE OFF 

SET ALTERNATE TO 

SET CONSOLE ON 

ON ERROR DO Err hist 

? "Error filename is " + CHR( 16 }) + err file 
SET DOHISTORY ON 


Vow ive indo ow 


* ~=~—Pass control back to the calling routine This is where 

* —-~you Want to decide what to do next The RETURN statement 
* -=-will return control to the statement immediately following 
* —-——-the one that intiated the error 

RETURN 


* EOP Err enise PRG 


Listing 4. ERR HIST.PRG for dBase III Plus. 


that the error occurred. Each 
aspect of the application’s 
operating environment is listed 
and titled: 


Setting Up Err hist. PRG 


When you have set up your 
application place the command 


ON ERROR DO Err=hist 


near the beginning of the main 
module. It is also possible to 
put 


COMMAND = ON ERROR DO Err hist 


in a Config, DB if its use is 
universal 


Copyright 1985 Ashton-Tate 
Reprinted from Technotes, with 
permission from master Australian 
distributor, Arcom Pacific 


DUOS 
dbase User Groups 


Melbourne: For information on the 
Melbourne group’s meetings, 
contact Vic Parsons on {03} 381- 
2666, 





Sydney: Meetings are held on the 
third Tuesday of each month at 
the offices of the Australian 
Computer Society, lst Fioor, 72 
Pitt Street. For information on 
the group contact Catherine 
Rosenbrauer on 74-1961 or Colin 
Griffiths on 44-7676. 


Coder 


Getting Your Backup 


By Ray Lowe 





This program allows your dBase 
III application to handle the 
backup of large database files 
(to floppies, in drive A:), 
rather than leaving it to the 
user to remember how to run the 
DOS BACKUP and COPY commands. In 
addition, the disks will be 
numbered and date stamped. 


It is designed for a database 
file without memo fields 


The program assumes you are using 
blank, formatted floppies with 
360 Kbytes (or 1.2 Mbytes) 
availabie When you run the 
program, you Will be prompted for 
the filename and the number of 
bytes per record. 


Copyright 1985 Ashton-Tate. 
Reprinted from Technotes, with 
permission from master Australian 
distributor, Arcom Pacific. 


* Program. Backup. PRG 

* Author. .; Ray Love 

* Date. : May 1, 1985 

* Version dBASE III, any version 

* Note(s) This program is used to back up large files to 
x floppies in drive A, from a hard disk The 

* 


disks are numbered and date~stamped. 
x 


SET TALK OFF 

STORE "A:" TO drive 

* ——~Build a line from graphics characters 

STORE CHR( 205 ) TO line 

STORE line + line + line + line + line TO line 

STORE line+line+line+line+line+linet+line+line TO iine 
CLEAR 

1, 0 SAY CHR({ 201 ) + line 

1,39 SAY line + CHR{ 1867 ) 

2, 0 SAY CHR({ 186 ) 
2,79 SAY CHR{ 186 ) 
2,30 SAY "FILE 
2,68 SAY DATE() 

3, 0 SAY CHR( 200 ) + line 
3,39 SAY line + CHR( i188 ) 


BA CR U P* 


* + @ @ © @ © @ © @& 


=--Get file to use 
mfile = SPACE( 8 ) 
rec size = 2 
done = _F 
DO WHILE mfile = SPACE{ & ) 
@ 11,15 SAY "Enter the file to backup.", 
GET mite PICTURE “@'™ 
@ 11,52 SAY ~" iO ee 
READ 
IF TRIM( mfile } = *Q*" 
SET TALK ON 
done = T 
EXIT 
ENDIF 
@ 13,10 SAY "Number of bytes per record “1 
GET rec size RANGE 2,4000 
READ 
mfile = TRIM( mfile } + "“_DBF*" 
IF NOT FILE( “&mfile" } 
@ 23,20 SAY mfile + " File does not exist 
mfile = SPACE( 8 ) 
ENDIF 
ENDDO 
* —--The memory variable, done, is used to EXIT the loop and 
* —-RETURN from the program after the loop. It is coded this 
* ~--way because of the anomaly on RETURNing from within a 
* ~--~DO WHILE loop. See page D3-32 of the April 1985 issue of 
* 
L 


Pleasé@ re-enter" 


~TechNotes for further discussion of this anomaly 
F done 

RETURN 
ENDIF 
* 


~—-Caiculate number of records per disk to copy, 
-—-leaving room for the file header 

-~-~If you are using the 1 2 MB floppy on the IBM PC AT, 
-~—-change 350000 to 1200000 

recs copy * INT( 350000 / rec_size ) 


*« 


+ * + 


* --Clear screen from 4th row to the end. 
@ 4,0 CLEAR 
* =—~~-Make the backup files 


USE &mfile 
STORE 1 TO disk 


DO WHILE .NOT EOF() 
STORE " " TO ready 
@ 5,15 SAY "Insert a blank formatted disk in drive " + drive 
@ 6,15 SAY "Use a new disk for each “ +; 
STR( recs copy) + " records to back up ” 


Tip 
Useful Conventions 


By Les Bell 


Naming Files 


Give your files a common prefix 
$o you can find them all together 
in a sorted directory, or by 
giving a directory wildcard which 
matches the prefix 


Try to make the names meaningful, 
despite the limitation of eight 
characters {and the fact I've 
just taken between one and four 
characters away from that by 
asking for a common prefix). 


Often it makes sense to have 
names that aren’t meaningful, 
Particularly if they’re set up to 
Suit use in macros {menul, menu2, 
menui-il, etc). If you can’t make 
the names meaningful, at least 
keep a list of names handy with a 
description of the function of 
each, so you Know where to start 
looking if you have a problen. 


Programming "Tricks" 


Create a system-wide file of 
commonly-used functions 


Hou'’il soon gét tired of typing 

"TYPE <RETURN> TO CONTINUE", and 
the associated lines of code to 

allow a pause until the operator 
hits return 


This, and other commonly used 
functions (like displaying error 
messages} can be put in a single 
file which is used by all your 
dBase systems, and alli programs 
in those systems 


System definitions file for drive 
identifiers and so on 


Don’t ever assume you’re going to 
have room for all your files on 
the default drive, or on drive B 

assume instead you may want to 
move certain types of files to 
different disks. Your program may 
be running on an IBM PC today, 
but tomorrow it could be on @& PC 
XT 


I use f: (for file-related 
Variable group) plus the file 
type to create memory variables 
With my drive designators Thus 
fh dbf="BE", £Sndx="A:" (orem 





O77 15° SAY "Hit any key to begimwcopying "Ft mitle +.°°2", 


GET ready 
READ 
5,15 CLEAR 


~~~Backup filename is in the format 


—-—~MM-DD is the current date, 


FEF-MM-DD.399 


g 
* 
* —=—Where FF is the first two characters of the file, 
* 
* 


~-~-.999 is the disk number. 


backup = drive + SUBSTR(mfile,1,2) + "-" + ; 


SUBSTR( DTOC( DATE() 
SUBSTR( DTOC( DATE() 
@ 4,0 
SET TALK ON 


leap 
),4,2 


ot See 
)} + "." + STR{ disk,i ) 


? “Copying Next " + STR( recs copy) + * TO " + backup 


COPY NEXT recs copy TO &backup 


SET TALK OFF 
@ 5,0 CLEAR 


IF ,NOT. EOF(}) 
SKIP 
ENDIF 
disk = disk + i 
ENDDO 


CLOSE DATABASES 
SET TALK ON 
RETURN 

* EOP Backup. PRG 


Listing 6. dBase III file backup routine. 


dBase III, £ ndx="A:"), and so 
on, These are saved in a memory 
file and RESTOREd when the 
program starts up, and all file 
references include these as 
macro-substitution prefixes (e.g. 
USE &£:dbf.mail) 


Performance Considerations 


Generally, dBase II is disk 
bound; in other words, it doesn’t 
matter how fast your processor 
is, as the program spends most of 
its time reading and writing disk 
anyway. This problem is 
exacerbated by dBase’s use of 
nested command files. Here are 
some techniques which will 
optimise programs for speed: 


Flat Files 


Ignore the relational database 
model (Ashton-Tate has, more or 
less, anyway) and avoid splitting 
data across files. It is better 
to carry redundant information in 
one flat file if such information 
is used freguentiy. For example, 
in an inventory system, keep 
supplier information together 
with parts information rather 
than use a s@éparate parts and 
supplier file 


This is because of the major 
dBase II limitation of only 
having two .DBF files open at one 
time; the program must therefore 
keep opening and closing filés, a 
tremendous overhead. 


Flat file design uses more disk 
Space but runs faster. 


sorted Directory 


Ensure frequently used data or 
command files appear at the start 
of the disk directory. 


Disk Fragmentation 


Order disk space so that files 
are allocated continuous disk 
space. 


This can be achieved with growing 
files by creating dummy records 
then deleting the records and 
packing the file, The space 
rémains allocated. 


Split Index and Database 


For indexed files put the index 
on a different disk to the data 
file in order to reduce head 
movements. Better still, put it 
in a memory drive. {It’s much 
easier to experiment and/or 
change to this method if you have 
created the system definitions 
file for drive identifiers, as 
discussed on the previous page). 


Sort Frequently 


Where reports etc are frequently 
produced by reading files in 
index order, periodically re-sort 
the file in index order. (COPY 
using the index, or dSort, rather 
than use the SORT command! ) 


Tips for Readers 


If you have a problem you want us 
to solve, you’ill have a lot 
better chance if you send it in 
on disk (with any necessary 
sample files, and so on). 


It‘s much easier for us to run a 
program and see what it’s doing 
than to pore over often-obscure 
listings 


Include your explanation/request 
in a text file on the disk. Also, 
please be sure to include a phone 
number, preferably a daytime one 


Similarly, we prefer any 
contributions to dLetter to come 
on disk whenever possible 


We can accept 20 cm Single-sided 
single-density CP/M disks, IBM PC 
13 cm disks, or just about any 
soft-sector 13 cm format {but not 
‘quad density’ or similar high- 
capacity formats, nor Apple 
disks) 


A Note on Style 


Due to the column layout of 
dLetter, it is often necessary to 
break lines of code. When we do 
this, we place a semi-colon a% 
the end of the line to indicate 
it is to be continued on the ::ext 
line, like this: 


INDEX ON $({name,@(" ",name)+1,8); 
+§({name,i,1) 


dBase treats the semi-colon as a 
continuation character, and it is 
disregarded in the command line 
Most of the lines of code we 
print will fit in the normal 680- 
column display, so you won’t need 
to type in the semi-colons 

anyway 


A word of warning for dBase [Il 
users, The semi-colon will not 
work in DO WHILE loops, When 
dBase comes to process the loop, 
it will regard the second part of 
the command liné as a separate 
line, and give you a syntax 
EBEEOr . 


To write multiple-line DO WHILE 
commands, you must use soft 
Carriage returns instead of séemi- 
colons.The dBase III word 
processor will automatically 
insert a soft carriage return 
when you type in a line longer 
than the screen, so this is no 
hassle. But make sure you don‘t 
type in the semi-colons from our 
examples in these circumstances 


